home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / comp / sys / amiga / programmer / 3949 < prev    next >
Encoding:
Internet Message Format  |  1996-08-05  |  3.5 KB
  1. Path: news.internet.dk!s-t-j
  2. From: s-t-j@internet.dk (Stig Joergensen)
  3. Newsgroups: comp.sys.amiga.programmer
  4. Subject: Probl. with datatypes.
  5. Date: 18 Feb 96 22:18:31 CET
  6. Organization: Who knows?
  7. Message-ID: <3127f979@internet.dk>
  8. NNTP-Posting-Host: modem2-4.internet.dk
  9. X-GateSoftware: AmiGate 1.6b (28.1.96)
  10.  
  11.  
  12. -> REPOST OF
  13. -> Date 11 Feb 96  0:35:55
  14. -> From Stig Joergensen (s-t-j@internet.dk)
  15. -> MGSID <311d8e1d@internet.dk>
  16.  
  17. Hi out there.
  18.  
  19.  
  20. I have a problem (hmm. 2 problems)
  21.  
  22.  
  23. 1) Where can I find some info on datatypes ?
  24.  
  25. 2) Why will this code not refresh the datatype picture/gadget on my own window
  26.  
  27.  
  28. ..... open libraries etc
  29.  
  30. DISPLAYGADGET:    MOVE.L     DATALIBBASE(A5),A6
  31. .OPENSOURCE       MOVE.L     #IFFFILENAME,D0
  32.                   LEA        NEWOBJECTATTRS(A5),A0
  33.                   CALL       NewDTObjectA
  34.                   MOVE.L     D0,OBJECT(A5)
  35.                   BEQ.W      .FAIL
  36.  
  37. .ADDIT            MOVE.L     D0,A2
  38.                   SUB.L      A1,A1
  39.                   MOVE.L     WINDOWPTR(A5),A0
  40.                   MOVEQ.L    #$FFFFFFFF,D0
  41.                   CALL       AddDTObject
  42.  
  43. .REFRESH          MOVE.L     OBJECT(A5),A0
  44.                   MOVE.L     WINDOWPTR(A5),A1
  45.                   SUB.L      A2,A2
  46.                   SUB.L      A3,A3
  47.                   CALL       RefreshDTObjectA
  48.                   BRA.W      REFRESHWINDOW
  49.  
  50. .FAIL             MOVE.L     DOSLIBBASE(A5),A6
  51.                   CALL       IOERR
  52.                   MOVE.L     D0,RETURNFAULT(A5)
  53.                   BRA.W      CLOSEWINDOW
  54.  
  55. REFRESHWINDOW:    MOVE.L     WINDOWPTR(A5),A1
  56.                   MOVE.L     wd_firstgadget(a1),A0
  57.                   SUB.L      A2,A2
  58.                   MOVE.L     INTUILIBBASE(A5),A6
  59.                   CALL       REFRESHGADGETS
  60.  
  61. ..... some other code stuff
  62.  
  63. ..... some data 
  64.  
  65. NEWOBJECTATTRS:   DC.L       DTA_SourceType,DTST_FILE
  66.                   DC.L       DTA_GroupID,GID_PICTURE
  67.                   DC.L       GA_Left,20
  68.                   DC.L       GA_Top,20
  69.                   DC.L       GA_Width,56
  70.                   DC.L       GA_Height,48
  71.                   DC.L       DTA_UserData,'PIC1'
  72.                   DC.L       TAG_DONE
  73.  
  74. IFFFILENAME:      DC.B       'DH3:Pictures/Dock-Brushes/FileManager.brush',$00
  75.  
  76. ..... some more data
  77.  
  78. by the way, my window look like this
  79.  
  80. WINDOW:           DC.L       WA_Left,50
  81.                   DC.L       WA_Top,50
  82.                   DC.L       WA_Width,200
  83.                   DC.L       WA_Height,100
  84.                   DC.L       WA_Title,WINDOWTITLE
  85.                   DC.L       WA_MinWidth,200
  86.                   DC.L       WA_MinHeight,100
  87.                   DC.L       WA_MaxWidth,200
  88.                   DC.L       WA_MaxHeight,100
  89.                   DC.L       WA_CloseGadget,TRUE
  90.                   DC.L       WA_Backdrop,FALSE
  91.                   DC.L       WA_Borderless,TRUE
  92.                   DC.L       WA_RMBTrap,TRUE
  93.                   DC.L       WA_ScreenTitle,SCREENTITLE
  94.                   DC.L       WA_PubScreenName,PUBNAME
  95.                   DC.L       TAG_DONE
  96.  
  97.  
  98. and the IDCMP will be set to $00800260 witch is some boopsi stuff + close +
  99. gadget up&down
  100.  
  101.  
  102.  
  103.       _ _____________________________ _
  104.      / | \!/   __            /|      | \
  105.     / /|-- -- |_-|-` _      /-|miga  |\ \
  106.   _( (_| /!\  __||_||_|    Programmer|_) )_
  107.  (((\ \|  / >        _|         < \  |/ /)))
  108.  (\\\\ \_/ /     Joergensen      \ \_/ ////)
  109.   \       /                     --\       /
  110.    \    _/s-t-j@internet.dk      /!\_    /
  111.    /   /_____________________________\   \
  112.   /___/                               \___\
  113.  
  114.